سوال 1 از فصل 2
1-عبارات زیر را از فرم ریاضی به فرم معادل ویژوال بیسیک تبدیل کنید.
الف) A^b+4*a^2*c
ب) -3^4+x^3-(4*z^2)/(x+y)=-3^4+x^3-4*z^2/(x+y)
ج) 0.5^ (b^2-4*a*c)
د) (x+v^z)/(3^5*y^2)
_____________________________________________________________________________
سوال 2 از فصل 2
2-کدام نام زیر برای یک متغیر غیر مجاز است .با ذکر دلیل ،آن را مشخص کنید.
الف:غیر مجاز است زیرا کاراکتراول نام متغیر باید حروف الفبایی باشد.
ب:غیر مجاز است زیرا فاصله در نام متغیر مجاز نیست.
ج)غیر مجاز است زیرا استفاده از * در نام متغیر مجاز نیست.
د)غیر مجاز است زیرا فاصله در نام متغیر مجاز نیست.
_________________________________________________________________________________
سوال 3 از فصل 2
3-حاصل عبارت های زیر را به دست آورید.
الف)45=2-2+45=2-3/6+5*2^3
ب)15=10+5=(2*481)+3*2 mod 41
ج)36+ mod 9+24/72=36+2+3=41
د)26+2^4/213*8=26+124=26+0=26
__________________________________________________________________________
سوال 4 از فصل 2
4-برنامه ای بنویسید که طول و عرض یک مستطیل را خوانده و محیط و مساحت آنرا نشان دهد.
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Priveate sub cmd run _ click()
Dim sngA As single,sngB As single
Dim sngP As single, sngS As single
sngA=Inpubox("enter length","GetNumber")
sngB=Inputbox("enter width","Getnumber")
sngP=sngA*sngB
print"P="; sngP
Print"S"; sngS
End sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
______________________________________________________________________________________
سوال 5از فصل 2
5-برنامه ای بنویسید که ساعت،دقیقه و ثانیه را خوانده و زمان معادل را فقط بر حسب ثانیه حساب کند.
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Priveate sub cmd run _ click()
Dim intH as integer,intM as integer
Dim intT as integer,intS as integer
intH =Inputbox("enter hours: ","")
intM= Inputbox("enter Minutes:","")
intS=Inputbox("enter second:","")
T=intH*3600+intM*60+intS
Print"equal Timi is =";intT;"Second"
End Sub
4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .
این بار روی دکمه Exit کلیک کنید و فرمان End را بنویسید
Private sub cmdExit_Click()
End
End Sub
_____________________________________________________________________________________
سوال 6 از فصل 2
6-برنامه ای بنویسید که یک عدد سه رقمی را بخواند و مقلوب آ را چاپ کند
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Priveate sub cmd run _ click()
Dim sngA as single , sngB as single
Dim sngP as single , sngS as single
sngA=inputbox("Enter Length","GetNumber")
sngP=2*(sngA+sngB)
sngS=sngA*sngB
print"P=";sngP
print"S=";sngS
End Sub
_______________________________________________________________________________________
سوال 7 از فصل 2
7-برنامه ای بنویسید که 5 عدد را از ورودی بخواند و میانگین آنها را حساب کند.
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Priveate sub cmd run _ click()
Dim sngA,sngB,sngC,sngD,sngE,sngAve as single
sngA=inputbox("enter 1th number :","")
sngB=inputbox("enter 2th number :","")
sngC=inputbox("enter 3th number :","")
sngD=inputbox("enter 4th number :","")
sngE=inputbox("enter 5th number :","")
sngave=(sngA+sngB+sngC+sngD+sngE)/5
print "Average is ";sngave
Private sub cmdExit_Click()
End
End Sub
____________________________________________________________________________________
سوال 8 از فصل 2
8-برنامه ای بنویسید که درجه هوا را بر حسب سانتی گرادخواند و معادل آنرا به فارنهایت نمایش دهد .
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Priveate sub cmd run_click()
Dim sngD,sngF as single
SngD =inputbox("enter degree")
sngF(9/5)*sngD+32
end sub
Private sub cmdExit_Click()
End
End Sub
____________________________________________________________________________________
سوال 9 از فصل 2
9-برنامه ای بنویسید که یک عدد دو رقمی را بخواند و مجموع ارقام آن را چاپ کند
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Priveate sub cmd run_click()
Dim intN as integer, intM1 as integer,intM2 as integer
Dim intM3 as integer,intM as integer
Dim intS as integer
IntN=inputbox("Enter 2 Digis Number:","")
intM1=intN mod 10
intM2=intN10
intS=intM1+intM2
print"Sum of Digits";intS
End Sub
Private sub cmdExit_Click()
End
End Sub
______________________________________________________________________________________
سوال 10 از فصل 2
10-برنامه ای بنویسید که شعاع قاعده و ارتفاع یک استوانه را دریافت وومساحت جانی،مساحت کل و حجم استوانه را چاپ کند.
1:در پنجره مشخصه ها ،مشخصه name و captionرا به دلخواه تنظیم کنید.
2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه name آن ها را به ترتیب cmd Exit و Cmd Run قرار داده و مشخصه captioe آنها را نیز به ترتیب Exit وRun قرار دهید .
3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:
Priveate sub cmd run _ click()
Dim sngR,sngH,sngS1,sngS,sngST,sngV,sngP as single
sngH=inputbox("Enter Height")
sngR=inputbox("Enter Rdius")
sngP=2*3.14*sngR
sngS1=3.14*sngR^2
sngS=sngP*sngH
sngST=sngS+2*sngS1
print"S=";sngS
print"ST=";sngSt
print"V=";sngV
End Sub
Private sub cmdExit_Click()
End
End Sub
|
امتیاز مطلب : 1
|
تعداد امتیازدهندگان : 1
|
مجموع امتیاز : 1